COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		P←17 ↔ A←1 ↔ B←2 ↔ C←3 ↔ NBUFS ←11
C00004 ENDMK
C⊗;
	P←17 ↔ A←1 ↔ B←2 ↔ C←3 ↔ NBUFS ←11
	FILEN ← 1200
STAR:	RESET
	MOVE P,[IOWD 20,PDL]
	OPEN DEVN
	JRST ERRO
	MOVE PPN
	MOVEM IFILE+3
	LOOKUP IFILE
	JRST ERRO
	INPUT INPO

	MOVE A,[IOWD 200,FFILE]
	SETZ B,
CHRLOP:	HRRZ C,(A)1
	ADD C,[POINT 10,FFILE+2]
	ILDB C
	ANDI 177
	HRRZM COL0(B)
	ILDB C
	ANDI 177
	HRRZM COL1(B)
	ILDB C
	ANDI 177
	HRRZM COL2(B)
	ILDB C
	ANDI 177
	HRRZM COL3(B)
	ILDB C
	ANDI 177
	HRRZM COL4(B)
	AOJ B,
	AOBJN A,CHRLOP

	OPEN DEVN
	JRST 4,.
	SETZM OFILE+3
	ENTER OFILE
	JRST 4,.
	SETZ 16,
	OUTPUT [IOWD =640,COL0↔0]
	RELEAS
	EXIT

ERRO:	OUTSTR [ASCIZ/
	??/]
	EXIT

INPO:	IOWD FILEN,FFILE
	0
IFILE:	'CAP7X5'
	'FNT   '
	0
	0
PPN:	'XGPSYS'
DEVN:	17
	'DSK   '
	0
OFILE:	'FONT  '
	'OUT   '
	0
	0
FFILE:	BLOCK FILEN
PDL:	BLOCK 20
COL0:	BLOCK 200
COL1:	BLOCK 200
COL2:	BLOCK 200
COL3:	BLOCK 200
COL4:	BLOCK 200
	END STAR